home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / AutoFX / Scale_Percent.ifx.pre < prev    next >
Text File  |  1996-03-02  |  720b  |  36 lines
  1. /*
  2.  * Scale_Percent.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Scale By Percent.
  6.  *
  7.  *    20.01.95 tek   Moved Width gadget over.
  8.  *
  9.  * Inputs:
  10.  *    Word(Arg(1),1) = Sequence number
  11.  *    Word(Arg(1),2) = Total number of frames (N)
  12.  *
  13.  * Returns:
  14.  *    0 if successful, non-zero on failure
  15.  *
  16.  */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. base  = 'Autofx_ScalePct_'
  21.  
  22. w     = GETCLIP(base||'w') ; IF w = "" THEN w = 50
  23. h     = GETCLIP(base||'h') ; IF h = "" THEN h = 50
  24.  
  25. Gadget.1 = 'INTEGER  90  5 50 14 "Width (%):"' w
  26. Gadget.2 = 'INTEGER 230  5 50 14 "Height (%):"' h
  27. Gadget.3 = 'END'
  28.  
  29. NewComplexRequest '"Scale By Percentage"' Gadget 300 36
  30. IF rc ~= 0 THEN EXIT rc
  31.  
  32. CALL SETCLIP(base||'w', result.1)
  33. CALL SETCLIP(base||'h', result.2)
  34.  
  35. EXIT
  36.